home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / chtbox.for < prev    next >
Text File  |  1992-07-31  |  375b  |  12 lines
  1.       SUBROUTINE CHTBOX(PXL,PYL,PXH,PYH)
  2. C! Plots a box 
  3.       INCLUDE 'lunits.h'
  4. C
  5.       WRITE(LOUTCH,*) pxl,' xrel ',pyl,' yrel moveto'
  6.       WRITE(LOUTCH,*) pxh,' xrel ',pyl,' yrel lineto'
  7.       WRITE(LOUTCH,*) pxh,' xrel ',pyh,' yrel lineto'
  8.       WRITE(LOUTCH,*) pxl,' xrel ',pyh,' yrel lineto'
  9.       WRITE(LOUTCH,*) 'closepath'
  10.       WRITE(LOUTCH,*) 'stroke'
  11.       END
  12.